Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / apcp.arc / A303A.CMD < prev next >

Wrap

Text File | 1987-01-01 | 10.3 KB | 404 lines

goto menu dial: isfile s8 if success return else endif clear message "│ 303 │" locate 0,8 message s8 locate 0,17 message "│ Denver, CO │" locate 0,49 message s6 locate 0,77 message "│" locate 2,0 transmit "I!" pause 1 transmit "ATZ!" waitfor "OK" transmit "^E!" waitfor "READY" transmit "D" transmit S8 transmit "!" rget s9 rget s9 80 40 rget s9 40 40 rget s9 40 40 mess: find s9 "BUSY" if found assign s7 "M" return else endif find s9 "ANSWER TONE" if found set parity none set databits 8 clear log open s8 alarm 2 exit else endif find s9 "RINGING" if found rget s9 find s9 "RINGING" if not found goto mess else log open s8 message "NO ANSWER - STILL RINGING" log close transmit "^C^D^C" endif else endif return menu: assign s7 " " log close clear message "╔════════════════════════════════════════════════════════════════════════════╗" message "║ A- Mile High .............. 671-7308 V- King's Market Bookshop . 665-6091 ║" message "║ B- Data Bank ............ . 494-0167 W- Metro Computer Exch .... 753-6677 ║" message "║ C- Micro Broker ......... . 534-5456 X- Metro Data Exchange .... 830-2445 ║" message "║ D- ADP Audit .............. 740-2223 Y- Microlink B ............ 972-4181 ║" message "║ E- Apparat Computers ...... 741-4071 Z- ProDOS GBBS ............ 770-7415 ║" message "║ F- Denver Fido #56 ........ 973-9338 0- Protech Board .......... 750-3783 ║" message "║ G- Computer Crime/Pol ..... 987-7388 1- Softcomm ............... 697-0756 ║" message "║ H- Denver Business UG ..... 733-8189 2- Professional System .... 740-2223 ║" message "║ I- DENHUG BBS ............. 423-3224 3- ........................ ...-.... ║" message "║ J- King of Emerald ........ 499-2537 4- ........................ ...-.... ║" message "║ K- Biznet ................. 292-9047 5- ........................ ...-.... ║" message "║ L- Boulder Fido ........... 497-7978 6- ........................ ...-.... ║" message "║ M- George Net ............. 322-4779 7- ........................ ...-.... ║" message "║ N- PC jr Net .............. 789-4610 8- ........................ ...-.... ║" message "║ O- Fiddler's Fido ......... 674-1859 9- ........................ ...-.... ║" message "║ P- ESCO Service, Inc ...... 363-6409 @- ........................ ...-.... ║" message "║ Q- EUSEBEIA Fido .......... 430-8376 #- ........................ ...-.... ║" message "║ R- Day's End .............. 650-5636 $- ........................ ...-.... ║" message "║ S- CPM SIG INC IBM ........ 465-1313 %- ........................ ...-.... ║" message "║ T- Elite III .............. 278-8778 &- ........................ ...-.... ║" message "║ U- Genesis Project ........ 287-8267 *- ........................ ...-.... ║" message "╚════════════════════════════════════════════════════════════════════════════╝" locate 23,2 get s0 top: find s0 "A" if found assign s8 "671-7308" assign s6 "Mile High " gosub dial else endif find s0 "B" if found assign s8 "494-0167" assign s6 "Data Bank " gosub dial else endif find s0 "C" if found assign s8 "534-5456" assign s6 "Micro Broker " gosub dial else endif find s0 "D" if found assign s8 "740-2223" assign s6 "ADP Audit " gosub dial else endif find s0 "E" if found assign s8 "741-4071" assign s6 "Apparat Computers " gosub dial else endif find s0 "F" if found assign s8 "973-9338" assign s6 "Denver Fido # 56 " gosub dial else endif find s0 "G" if found assign s8 "987-7388" assign s6 "Computer Crime/Police " gosub dial else endif find s0 "H" if found assign s8 "733-8189" assign s6 "Denver Business Users Group" gosub dial else endif find s0 "I" if found assign s8 "423-3224" assign s6 "Denver Heath User's Group " gosub dial else endif find s0 "J" if found assign s8 "499-2537" assign s6 "King of Emerald " gosub dial else endif find s0 "K" if found assign s8 "292-9047" assign s6 "Biznet " gosub dial else endif find s0 "L" if found assign s8 "497-7978" assign s6 "Boulder Fido " gosub dial else endif find s0 "M" if found assign s8 "322-4779" assign s6 "George Net " gosub dial else endif find s0 "N" if found assign s8 "789-4610" assign s6 "PCjr Net " gosub dial else endif find s0 "O" if found assign s8 "674-1859" assign s6 "Fiddler's Fido " gosub dial else endif find s0 "P" if found assign s8 "363-6409" assign s6 "ESCO Service, Inc. " gosub dial else endif find s0 "Q" if found assign s8 "430-8376" assign s6 "EUSEBEIA Fido " gosub dial else endif find s0 "R" if found assign s8 "650-5636" assign s6 "Day's End " gosub dial else endif find s0 "S" if found assign s8 "465-1313" assign s6 "CPM SIG INC IBM " gosub dial else endif find s0 "T" if found assign s8 "278-8778" assign s6 "Elite III " gosub dial else endif find s0 "U" if found assign s8 "287-8267" assign s6 "Genesis Project " gosub dial else endif find s0 "V" if found assign s8 "665-6091" assign s6 "King's Market Bookshop " gosub dial else endif find s0 "W" if found assign s8 "753-6677" assign s6 "Metro Computer Exchange " gosub dial else endif find s0 "X" if found assign s8 "830-2445" assign s6 "Metro Data Exchange " gosub dial else endif find s0 "Y" if found assign s8 "972-4181" assign s6 "Microlink B " gosub dial else endif find s0 "Z" if found assign s8 "770-7415" assign s6 "ProDOS GBBS " gosub dial else endif find s0 "0" if found assign s8 "750-3783" assign s6 "Protech Board " gosub dial else endif find s0 "1" if found assign s8 "697-0756" assign s6 "Softcomm " gosub dial else endif find s0 "2" if found assign s8 "740-2223" assign s6 "Professional System " gosub dial else endif goto speedup ; Skip Empty Elements find s0 "3" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "4" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "5" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "6" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "7" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "8" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "9" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "@" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "#" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "$" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "%" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "&" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "*" if found assign s8 " - " assign s6 " " gosub dial else endif speedup: find s7 "M" if found assign s7 " " goto top else endif message "All Numbers Connected - Or Did Not Answer" alarm 2 exit